home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / MEMMON.DIR / 00064_mVol button.ls < prev    next >
Encoding:
Text File  |  2003-04-21  |  466 b   |  16 lines
  1. on mouseDown
  2.   repeat while the mouseDown
  3.     if (the mouseV > 68) and (the mouseV < 135) then
  4.       set the locV of sprite the clickOn to the mouseV - 3
  5.       set the height of sprite 35 to the mouseV - 70
  6.       set the soundLevel to 8 - (the height of sprite 35 * 1.0 / 64 * 8) - 0.10000000000000001
  7.       updateStage()
  8.     end if
  9.   end repeat
  10. end
  11.  
  12. on mouseUp
  13.   set the soundLevel to 8 - (the height of sprite 35 * 1.0 / 64 * 8) - 0.10000000000000001
  14.   beep()
  15. end
  16.